OMSI Pasca1-1 V1.2/RT11 Ufep’t Guide 


Welcome to OMSI Pascal! 

This is the introductory manual* tha User’s Quids. It explains* 

1) how to compile and run your Pascal programs! 

2) how to intarprat program listings and arror massagas! 

3) soma datails of tha compilation procass. 

This manual assumas that you ara familiar with 

1) simpla RTil commands! 

2) a text aditor (EDIT* TECO* EOT* SOS)! 

3> alamantary Pascal programming. 

This manual is not* 

1) an introduction to Pascal! 

(saa Programming in Pascal by Grogono) 

2) a data!led description of OMSI Pascal-1 

(saa tha Language Specification) 

3) an expert’s guide to programming with OMSI Pascal-1 

(saa tha Programmer’s Guide) 




a* 
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So you want to run a Pascal program? 

The first step is to enter the program into the computer and store 
it in the file system. Use a familiar text editor to enter your 
program) and store the program in a file with the extension .PAS. 
The Pascal system accepts free-format program files* so use 
blanks* tabs* new lines* and form feeds as desired to help make 
your program readable. 

This Pascal version of your program is called the source program* 
or the source file. Ail other versions of your program are 
translations from the source program. 

Source programs should be stored in files with the extension .PAS 
for Pascal (example* FIRST.PAS). The .PAS extension may be 
omitted from commands to the Pascal system* but must be included 
in commands to other RT11 systems such as the editor. 

After editing* your program must be compiled — translated into a 
form which can be directly executed by the computer. The Pascal 
compilation process is directed by the PCL (Pascal Command 
Language) program. Its simplest form is* 

.R PCL 

a(source file name) 


To illustrate the compilation process* let’s assume that this 
program 


program First (Output); 
begin 

Write (“‘"Things are best in their beginnings"")* 
Writeln (" - Blaise Pascal"); 
end. 


is stored in the file FIRST.PAS. The compilation process proceeds 
as follows* 

.R PCL 
♦first 

.RU SY:PASCAL 

•TEMP.TMP,TT: *P IRST/N 


Errors detected: 0 

Free memory: ll660 words 


.R MACRO 

•TEMP.TMP-TEMP.TMP 
ERRORS DETECTED: 0 

• *C 

.R LINK 

• PI RST^TEMP.TMP,SY:PASCAL 

• *C 


.RU FIRST x # 

"Things aie best in tneir beginnings 


Blaise Pascal 

ip 
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Notice thet the PCL command line compiles the source program and 
then immediately runs (executes) the compiled program. This is 
known as "compile and go" operation. Compiled programs are stored 
in files with the .8AV extension (FIRST.SAV). After being 
compiled* the .SAV program can be executed again with the ’R’ or 
’RUN* commands. 

Notice also that no errors were detected. This is certainly 
unusual if this is your first program! What happens if there are 
detectable errors in the source program? 

The following program contains a deliberate errori 

progr** Second (Output) 
begin 

writeln ('“Things get worse as they continue*'); 

• nd. 


This program is missing a semicolon between the program heading 
and the keyword ’begin*. Semicolon errors are the most common 
errors made by beginning Pascal programmers. Semicolon errors are 
always detected by the compilers 

.R PCL 
•second 

.RU ST:PASCAL 
* TEMP. TMP, TT: •= S ECOND/N 
m 2 begin 

****•• Expected 'SEMICOLON' missing 

Errors detected: 1 
Free memory: 11679 words 

.R MACRO 
'C 

•TEMP.TMP-TEMP.TMP 


For each error* a line of the source program is printed followed 
by an arrow indicating the approximate position of the error* and 
a message describing the error. Many compilation errors are 
possible — see Appendix A of the Programmer’s Guide for a 
complete list. 
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As is often the case* we need to see more of the program to 
determine the precise location of the error and to correct it. 

The Pascal compiler can be directed to display the entire program* 
with all detected errors and other information. This is called 
the ’listing’ of the program. 

To get a program listing at your terminal* add the /L switch to 
the PCL command line* 

.R PCL 

*(source file name)/L 

To print a listing to the line printer or another destination* 
give a comma followed by the destination file name* an equal sign* 
and the source file* 

.R PCL 

*»(listing file name) ■ (source file name) 

Note* listing files are created with the .LST extension. A 
listing of a sample program followsi 


THIRD OMSI Pascal VI.2E RT11 26-Mar-80 0:29 Sit* *1-1 Page 1 

Oregon Software 2340 SW Canyon Road Portland, Oregon 97201 (503) 226-7760 

Line Stmt Level Nest Source program 


1 

2 


3 

4 


program Third (Output) 
beg in 

Expected "SEMICOLON* missing 

III Writeln (""Things get hazy if you stare at them*") i 

2 11 end. 


Errors detected: 1 
Free memory: 11677 words 


The listing is printed in pages* with a headline on each page 
showing the program name* the exact version of the Pascal system* 
the date and time* and the licensed site identification. 

Four columns of numbers appear on the left side of each page. The 
first column* labeled Line* simply numbers each line of the source 
program. The second column is labeled Stmt and gives the 
statement number of the first statement on that line. The 
statement number starts at 1 for each control section* and 
increases by one as each statement is compiled. An up-to-date 
listing can be useful while debugging* because the statement 
numbers are used by the Debugger to identify breakpoints. 
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To illustrate the Level and Nest columns* a more complex program 
is neededi 


FINAL 

Oregon Software 


OMSI Pascal VI.2E RTll 26-Mar-80 0:30 Site #1-1 Page 1 

2340 SW Canyon Road Portland, Oregon 97201 (503) 226-7760 


Line Stmt Level Nest 

1 

2 

3 

4 

5 

6 

7 12 1 

8 2 2 2 

9 3 2 2 


Source program 

program Final (Output); 

const Reality • True; 

procedure Objective; 
begin 

if Reality # 

then Write ('"Things become infinitely complex ) 
else Write ('In the Beginning, 


10 

4 

2 

1 

end; 

11 

12 

13 

14 

15 

1 

2 

1 

procedure Awareness; 
var Eye: (Subject, Obj< 
begin 

for Eye :■ Subject 

16 

2 

2 

2 

Writeln ('as one 

17 

3 

2 

1 

end; 

18 

19 

20 

1 

1 

1 

begin 

Object i ve; 

21 

2 

1 

1 

Awareness; 

22 

3 

1 

1 

end. 


) ; 


Errors detected: 0 
Free memory: 11554 words 


The Level column shows the depth of procedure nesting. The main 
program is at level 1* its procedures are level 2* and so oni a 
procedure at level 4 is enclosed by two surrounding procedures or 
functions. The Nest column shows a similiar nesting of statements 
within other structured statements. 
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Ths PCL command lina can includa several source files (up to six)» 
which are combined in sequence to form the complete program. The 
compilation process can also be modified by the use of "switches" 
in the PCL command line. A switch is a slash followed by a letter 
(like /L which prints the listing). The most commonly used 
switches are illustrated in the following examples - see the 
Programmer 1 s Guide for a complete list. 

To demonstrate* let’s compile and list the program E. This 
program calculates an approximation of e (the base of the natural 
logarithms) by summing the series 

l+l/l! + l/2!+l/3!* ... +1/IM! 

to the point where additional terms do not affect the 
approximation. 

.R PCL 

••/l 

.RU SY:PASCAL 
•TEMP.TMP,TT:-E 


.MAIN. OMSI Pascal VI.2E RT11 26-Mar-80 0:32 Site #1-1 Page 1 

Oregon Software 2340 SW Canyon Road Portland, Oregon 97201 (503) 226-7760 


Line Stmt 

Level 

Nest 

Source program 

1 





var e, delta, fact: real; 

2 





N: integer; 

3 





begin 

4 

1 

1 


1 

e:- 1.0; N:- 1; fact:- 1.0; delta:- 1.0; 

5 

5 

1 


1 

repeat 

6 

6 

1 


2 

e:« e+delta; 

7 

7 

1 


2 

N:« N+l; fact:« fact*N; delta:- 1/fact; 

8 

10 

1 


2 

unt i 1 e - (e+delta); 

9 

11 

1 


1 

writeIn ("With *,N:1 # * terms, the value of 

10 

12 

1 


1 

end. 

Er rors 

detected: 

0 



Free memory 

: 11636 


words 

Er rors 

detected: 

0 




Free memory: 11636 words 


.R MACRO 

•TEMP.TMP =TEMP.TMP 
ERRORS DETECTED: 0 
•~C 

. R LINK 

•E*T£MP.TMP,SY:PASCAL 

• RU E 

With 11 terms, the value of e is 2.718280000000000 
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Me can Match the progress of the computation and display 
intermediate values Mithout making any program changes. For this* 
ms use the /D/S SMitch pair to compile Mith the interactive 
Debugger. After compiling* Me set a stored breakpoint command to 
display the current value of e <see the Debugger manual for 
details of these commands). 

• R PCL 

•«/d/« 

.RU SY:PASCAL 
•TEMP.TMP,E,E-E/D/S 

Errors detected: 0 
Free memory: 11372 words 


• R MACRO 

•TEMP.TMP=TEMP.TMP 
ERRORS DETECTED: 0 
*'C 

•R LINK 

•E«TEMP.TMP,SY: PASCAL/C 

*SY:A/0:1/C 

•SY:B/0:1/C 

•SY:0/0:2/C 

•SY:1/0:2/C 

•SY:2/0:2/C 

•SY:3/0:2/C 

•SY:4/0:2/C 

•SY:5/0:2/C 

•SY:6/0:2/C 

*SY:7/0:2/C 

•SY:8/0:2/C 

•SY:9/0:2 

*'C 

. R E 

POD (Pascal Online Debugger) - 24-Apr-79 
POD - program name? e 
b(main,6)<w(e);c> 

9 


Breakpoint 

1.000000 

at 

MAIN,6 

e : • 

e + delta ; 

Breakpoint 

2.000000 

at 

MAIN,6 

e: • 

e+delta; 

Breakpoint 

2.500000 

at 

MAIN,6 

e; * 

e+delta; 

Breakpoint 

2.666667 

at 

MAIN,6 

e: * 

e+delta ? 

Breakpoint 

2.708333 

at 

MAIN,6 

e : * 

e+delta; 

Break point 
2.716667 

at 

MAIN,6 

e : ■ 

e+delta; 

Breakpoint 

2.710056 

at 

MAIN,8 

e: * 

e+delta; 

Breakpoint 

2.718254 

at 

MAIN,6 

e: • 

e+delta; 

Breakpoint 

2.718279 

at 

MAIN,6 

e: * 

e+delta; 

Breakpoint 

at 

MAIN,6 

e : * 

e+delta; 


2.718282 

With 11 terms, the value of e is 2.718288000000000 
Program terminated at MAIN,12 end. 

) *C 



# 
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The computed value i« printed with 6 significant digits. For more 
precision* we can use the /X switch which means "extended 
precision". With extended precision* 15 significant digits are 
computed and displayed - see the Programmer’s Guide. 


* PCL 

*«/x 

.RU SY:PASCAL 
* TEMP.TMP,TT s-E/X/N 



Errors detected: 0 
Free memory: 11636 words 


• R MACRO 

•TEMP.TMP-TEMP.TMP 
ERRORS DETECTED: 0 

♦ ~ C 

.R LINK 

*E»T£MP.TMP,SY:PASCAL 

♦ ~c 


.RU E 

With 19 terms, the value of e is 2.718281828459050 









; ... 44 . " .. .4 .. ..... - h 4 '.,. 4 ^ 
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Finally* let's "profile" the program using the /P/8 switch 
combination. The profile listing shows exactly the number of 
times each line is executed. This allows us to concentrate 
attention on the parts of the program which might effectively be 
optimized. 




• R TCL 
•e/p/s 

0 fiV SY: PASCAL 

* TEMP . TMP , E ,E-E/D/S 

Errors detected; 0 
Free memory: 11372 words 


.R MACHO 

• TEMP . TMP=TEMP . TMP 
ERRORS DETECTED: 0 

.R LINK 

*E*TEKP.TMP, SY :PASCAL,SY:PROFIL 
. RU E 

Program name? e 
Ojtput profile to: tt: 

With 11 terms, the value of e is 2.718280000000000 


• * 

4 ' ■ 


. w 


.MAIN. 


OMSI Pascal VI.2E RT11 26-Mar-80 0:06 Site #1-1 Page 1 

Oregon Software 2340 SW Canyon Road Portland, Oregon 97201 (503) 226-7760 

Line Stmt Level Nest Source program 


1 

1 

10 

10 

10 

1 

1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


1 

5 

6 
7 

10 

11 

12 


1 

1 

1 

1 

1 

1 

1 


1 

1 

2 

2 

2 

1 

1 


var e, delta, fact: real} 

N: integer; 
begin 

e:* 1.0; N: - 1; fact:- 1.0; delta:- l.Oj 
repeat 

e:- e+delta; 

N:- N+ls fact:- fact*N; delta:- 1/fact; 
until e * (e+delta); 

writelnTwith *,H*1,' terms, the value of 
end. 


• is*,e:18:15); 
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Thus ends the guided tour of OMSI Pascal-1. From here* we can 
suggest several places to find additional knowledge* 


<1) Try it! Certainly the most challenging course* and the 
most open-ended and accurate as wall. Acquire the habit of 
answering your questions by experiment — remember* “you can't 
hurt the computer!“ 


(2) Programming in Pascal * by Qrogono — a good course in 
Standard Pascal* with lots of sample programs for Cl>* above. 


(3) This manual — for fine points and grubby details of OMSI 
Pascal-1* it's "the only place in town". 


For the serious student* the following books are available from 
Oregon Software* 

Systematic Programming * An Introdu ction* Niklaus Wirthl 
Prentice-Hal1» *17.73 

Algorithms ± Data Structures ■ Programs* Niklaus Wirth* 
Prentice-Hal1 * *20.25 

Structured Prooramminq * Dahl* Dijkstra* Hoare? 

Academic Press* *15.30 

Elements of Prop ramming Style * Kernighan and Plauger? 
McGraw-Hill* *3.95 

And we recommend joining the Pascal Users' Group* which publishes 
an excellent newsletter — send *6 for a one year subscription* 

Pascal Users’ Group 
Attn* Rick Shaw 
Digital Equipment Corporation 
5773 Peachtree Dunwoody Road 
Atlanta* Georgia 30342 
(404) 232-2600 
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Epilogue (for the curious) 


Who Is QMSI? 

OMSI is not Orsgon Minicomputer Software* Inc. — it’s the Oregon 
Museum of Science and Industry* where we began writing software in 
the Research Laboratory in the basement. OMSI is a private 
educational organization whose charter is "to further the 
education of the youth of the community". Seven of us came from 
OMSI to found Oregon Software in September* 1977 . The name has 
stuck with us* and we continue to contribute our personal time and 
corporate resources to the Museum. 

But — we*re Oregon Software * please. 

On a more serious note> OMSI is a non-profit* charitable 
institution — contributions of money and equipment are much 
needed and are tan-deductible. Please earmark your donations for 
the Research Lab* which supports independent science projects in 
many fields including computing. For further information about 
the OMSI Research Lab program* contact* 

Director of Research 
OMSI 

4015 SW Canyon Road 
Portland* Oregon 97201 
C503) 248-5943 


What is OMSI Pascal-2? 

Pascal-2 is our new compiler* still under wraps as of this 
writing. It*s an optimizing compiler* written in Pascal — it’s 
designed to be portable* and has already been moved to a Honeywell 
computer. The Pascal-2 compiler is bigger and slower than 
Pascal-1* but not the generated code — typical programs are 40X 
smaller and almost twice as fast. You can expect Pascal-2 
compilers to be available on a wide range of popular 16 and 32 bit 
processors in the next several years. Supported users of OMSI 
Pascal-1 will receive substantial discounts on their purchase of 
OMSI Pascal-2 licenses for the PDP-11. 









